home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / frminfog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-05-23  |  3.0 KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form frmInfoG 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Game Info"
  7.    ClientHeight    =   3720
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   2970
  11.    Icon            =   "frmInfoG.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   248
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   198
  18.    Begin VB.ListBox List1 
  19.       BackColor       =   &H80000002&
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H80000009&
  30.       Height          =   2430
  31.       Left            =   150
  32.       TabIndex        =   0
  33.       Top             =   1140
  34.       Width           =   2655
  35.    End
  36.    Begin VB.Label Label2 
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "Active Game"
  39.       BeginProperty Font 
  40.          Name            =   "Times New Roman"
  41.          Size            =   14.25
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       ForeColor       =   &H80000002&
  49.       Height          =   375
  50.       Left            =   480
  51.       TabIndex        =   2
  52.       Top             =   75
  53.       Width           =   1935
  54.    End
  55.    Begin VB.Label Label1 
  56.       BackColor       =   &H80000002&
  57.       BorderStyle     =   1  'Fixed Single
  58.       Caption         =   "Start a New Game"
  59.       BeginProperty Font 
  60.          Name            =   "Century Gothic"
  61.          Size            =   9.75
  62.          Charset         =   0
  63.          Weight          =   600
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H80000009&
  69.       Height          =   495
  70.       Left            =   150
  71.       TabIndex        =   1
  72.       Top             =   480
  73.       Width           =   2655
  74.    End
  75. Attribute VB_Name = "frmInfoG"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Private Sub Form_Load()
  81. OutSquare 0, 0, ScaleWidth - 1, ScaleHeight, Me
  82. InSquare List1.Left, List1.Top, List1.Width - 1, List1.Height, Me
  83. InSquare Label1.Left, Label1.Top, Label1.Width - 1, Label1.Height, Me
  84. PaintPicture frmChess.Image2.Picture, 15, 5
  85. PaintPicture frmChess.Image2.Picture, ScaleWidth - 35, 5
  86. Left = frmChess.Left + ((frmChess.Width - Width) / 2)
  87. Top = frmChess.Top + ((frmChess.Height - Height) / 2)
  88. End Sub
  89.